perm filename PLADEF.TEX[1,ALS] blob sn#693292 filedate 1982-12-31 generic text, type T, neo UTF8
\def\space{ }
\gdef\obeylines{\catcode`\↑↑M=13 \let↑↑M=\par}} % NB \let!
\gdef\obeyspaces{\catcode`\ =13\let =\space}}
\def\specials{\  \\ \{ \} \$ \& \# \↑ \↑↑K \_ \↑↑A \↑↑J \↑↑I \%
\def\frenchspace{\sfcode`.=1000 \sfcode`?=1000 \sfcode`!=1000
\def\nonfrenchspace{\sfcode`.=3000 \sfcode`?=3000 \sfcode`!=3000
\def\bumppagenumber{\ifnum\count0<0\global\advcount0 by-1
\def\numberthepages{T}
\def\tracingall{\tracingonline1\tracingcommands2\tracingstats2\tracingpages1
\def\newcount{\allocate0\count \count18.}
\def\newbox{\allocate1\box \count18.}
\def\newdimen{\allocate2\dimen \count18.}
\def\newskip{\allocate3\skip \count18.}
\def\newmuskip{\allocate4\muskip 256.}
\def\newread{\allocate5\read 16.}
\def\newwrite{\allocate6\write 16.}
\def\newfam{\allocate7\fam 16.}
\def\allocate#1#2#3.#4{\global\advcount1#1 by 1
\def\newinsert#1{\global\advcount18 by -1
\def\checkoverflow#1#2#3{\ifnum\count#1<#2
\edef\smallskip{\vskip\skip\next}
\edef\medskip{\vskip\skip\next}
\edef\bigskip{\vskip\skip\next}
\def\thinspace{\kern .16667em }
\def\enspace{\kern.5em }
\def\enskip{{\hskip.5em}}
\def\quad{{\hskip1em}} % note, \kern didn't work in my poetry example
\def\qquad{{\hskip2em}}
\def\quad{\kern 1em }
\def\qquad{\kern 2em }
\def\linebreak{\newname\break}
\def\eject{\ifhmode\par\fi\break}
\def\break{\penalty-10000 }
\def\nobreak{\penalty 10000 }
\def\goodbreak{\penalty-500}
\def\smallbreak{\par\ifdim\the\lastskip=0pt\penalty-50\smallskip\fi}
\def\medbreak{\par\ifdim\the\lastskip=0pt\penalty-100\medskip\fi}
\def\bigbreak{\par\ifdim\the\lastskip=0pt\penalty-200\bigskip\fi}
\def\filbreak{\vfil\penalty-200\vfilneg}
\def\slash{/\discretionary{}{}{}}
\mathchardef\join"1357
\mathchardef\meet"1356
\mathchardef\munion"1355
\mathchardef\inter"1354
\mathchardef\union"1353
\mathchardef\int"1352
\mathchardef\prod"1351
\mathchardef\sum"1350
\mathchardef\oprod"134E
\mathchardef\osum"134C
\mathchardef\odotprod"134A
\mathchardef\oint"1348
\mathchardef\squnion"1346
\mathchardef\sqsub"3276
\mathchardef\land"225E
\mathchardef\lor"225F
\mathchardef\cap"225C
\mathchardef\cup"225B
\mathchardef\glb"2275
\mathchardef\lub"2274
\mathchardef\smallint"1273
\mathchardef\nabla"0272
\mathchardef\lnot"023A
\mathchardef\dright"526D
\mathchardef\dleft"426C
\mathchardef\relvv"326B
\mathchardef\rightvv"526B
\mathchardef\leftvv"426B
\mathchardef\|"026B
\mathchardef\relv"326A
\mathchardef\rightv"526A
\mathchardef\leftv"426A
\mathchardef\dashv"5261
\mathchardef\vdash"4260
\mathchardef\uplus"225D
\mathchardef\Zscr"25A
\mathchardef\Yscr"259
\mathchardef\Xscr"258
\mathchardef\Wscr"257
\mathchardef\Vscr"256
\mathchardef\Uscr"255
\mathchardef\Tscr"254
\mathchardef\Sscr"253
\mathchardef\Rscr"252
\mathchardef\Qscr"251
\mathchardef\Pscr"250
\mathchardef\Oscr"24F
\mathchardef\Nscr"24E
\mathchardef\Mscr"24D
\mathchardef\Lscr"24C
\mathchardef\Kscr"24B
\mathchardef\Jscr"24A
\mathchardef\Iscr"249
\mathchardef\Hscr"248
\mathchardef\Gscr"247
\mathchardef\Fscr"246
\mathchardef\Escr"245
\mathchardef\Dscr"244
\mathchardef\Cscr"243
\mathchardef\Bscr"242
\mathchardef\Ascr"241
\mathchardef\not"3240
\mathchardef\top"023E
\mathchardef\imag"023D
\mathchardef\forall"0238
\mathchardef\exists"0239
\mathchardef\real"023C
\mathchardef\aleph"023B
\mathchardef\angle"0236
\mathchardef\emptyset"0234
\mathchardef\notin"3233
\mathchardef\in"3232
\mathchardef\infty"0231
\mathchardef\prime"0230
\mathchardef\mapsto"322F
\mathchardef\rsh"222E
\mathchardef\lsh"222D
\mathchardef\sim"3218
\mathchardef\simeq"3227
\mathchardef\grgr"3226
\mathchardef\lsls"3225
\mathchardef\uparrow"3222
\mathchardef\downarrow"3223
\mathchardef\doublearrow"3224
\mathchardef\leftarrow"3220
\mathchardef\rightarrow"3221
\mathchardef\uparroww"322A
\mathchardef\downarroww"322B
\mathchardef\doublearroww"322C
\mathchardef\leftarroww"3228
\mathchardef\rightarroww"3229
\mathchardef\neq"321C \let\ne=\neq
\mathchardef\leq"3214 \let\le=\leq
\mathchardef\geq"3215 \let\ge=\geq
\mathchardef\succ"321F
\mathchardef\prec"321E
\mathchardef\doteq"321D
\mathchardef\approx"3219
\mathchardef\succeq"3217
\mathchardef\preceq"3216
\mathchardef\propersupset"321B
\mathchardef\propersubset"321A
\mathchardef\supset"3213
\mathchardef\subset"3212
\mathchardef\bot"0210
\mathchardef\perp"3210
\mathchardef\diamond"2277
\mathchardef\bullet"220F
\mathchardef\interc"220E
\mathchardef\div"220D
\mathchardef\odot"220C
\mathchardef\odiv"220B
\mathchardef\otimes"220A
\mathchardef\ominus"2209
\mathchardef\oplus"2208
\mathchardef\mp"2207
\mathchardef\pm"2206
\mathchardef\circ"2205
\mathchardef\rslash"2204
\mathchardef\cdot"2201
\mathchardef\ast"2203
\mathchardef\times"2202
\mathchardef\varomega"17F
\mathchardef\vartheta"17E
\mathchardef\varphi"17D
\mathchardef\omega"17C
\mathchardef\psi"17B
\mathchardef\jit"140
\mathchardef\partial"125
\mathchardef\wp"124
\mathchardef\lscr"123
\mathchardef\iit"120
\mathchardef\chi"11F
\mathchardef\phi"11E
\mathchardef\upsilon"11D
\mathchardef\tau"11C
\mathchardef\sigma"11B
\mathchardef\rho"11A
\mathchardef\pi"119
\mathchardef\xi"118
\mathchardef\nu"117
\mathchardef\mu"116
\mathchardef\lambda"115
\mathchardef\kappa"114
\mathchardef\iota"113
\mathchardef\theta"112
\mathchardef\eta"111
\mathchardef\zeta"110
\mathchardef\epsilon"10F
\mathchardef\delta"10E
\mathchardef\gamma"10D
\mathchardef\beta"10C
\mathchardef\alpha"10B
\mathchardef\Omegait"10A
\mathchardef\Psiit"109
\mathchardef\Phiit"108
\mathchardef\Upsilonit"107
\mathchardef\Sigmait"106
\mathchardef\Piit"105
\mathchardef\Xiit"104
\mathchardef\Lambdait"103
\mathchardef\Thetait"102
\mathchardef\Deltait"101
\mathchardef\Gammait"100
\mathchardef\Omega"0A
\mathchardef\Psi"09
\mathchardef\Phi"08
\mathchardef\Upsilon"07
\mathchardef\Sigma"06
\mathchardef\Pi"05
\mathchardef\Xi"04
\mathchardef\Lambda"03
\mathchardef\Theta"02
\mathchardef\Delta"01
\mathchardef\Gamma"00
\def\rangle{\delimiter"526930B }
\def\langle{\delimiter"426830A }
\def\}{\delimiter"5267309 }
\def\{{\delimiter"4266308 }
\def\rceil{\delimiter"5265307 }
\def\lceil{\delimiter"4264306 }
\def\rfloor{\delimiter"5263305 }
\def\lfloor{\delimiter"4262304 }
\def\O{\char'100 }
\def\o{\char'40 }
\def\OE{\char'37 }
\def\AE{\char'36 }
\def\oe{\char'35 }
\def\ae{\char'34 }
\def\ss{\char'33 }
\newskip\next \setskip\next=-10000pt plus 1fil \edef\hidewidth{\hskip\skip\next}
\def\.#1{\vbox{\baselineskip0pt\lineskip.25ex
\def\d#1{\vtop{\baselineskip0pt\lineskip.25ex
\def\b#1{\vtop{\baselineskip0pt\lineskip.25ex
\def\aa{\accent'27 a}
\def\AA{\rlap{\raise.25ex\hbox{\char'27}}A}
\def\c#1{\setbox0\hbox{#1}\ifdim1ht0=1ex\accent'30 #1%
\def\l{\accent'31 l} % will replace by \char'31 in new font, it will kern with l
\def\L{\rlap{\raise.56ex\hbox{\char'31}}L} % again, the kern will eventually work
\def\t#1{{\accent'32 #1}}
\def\H#1{{\accent'26 #1}}
\def\'#1{{\accent'16 #1}}
\def\`#1{{\accent'15 #1}}
\def\"#1{{\accent'23 #1}}
\def\~#1{{\accent'24 #1}} \def\squiggle{\mathaccent'24 }
\def\=#1{{\accent'22 #1}} \def\bar{\mathaccent'22 }
\def\u#1{{\accent'21 #1}} \def\breve{\mathaccent'21 } \let\↑↑S=\u
\def\v#1{{\accent'20 #1}} \def\hook{\mathaccent'20 } \let\↑↑_=\v
\def\↑#1{{\accent'17 #1}} \def\hat{\mathaccent'17 } \let\↑↑D=\↑
\def\vec{\mathaccent'25 }
\def\j{\char'14 }
\def\i{\char'13 }
\def\,{\mskip\the\thinmuskip}
\def\>{\mskip\the\medmuskip}
\def\;{\mskip\the\thickmuskip}
\def\↑↑]{\nonscript\,}
\def\!{\mskip\minusthe\thinmuskip}
\def\<{\mskip\minusthe\medmuskip}
\def\?{\mskip\minusthe\thickmuskip}
\def\↑↑\{\nonscript\mskip\minusthe\thinmuskip}
\def\sqrt{\radical"270370 }
\edef\%{\char\number`\%\space}
\edef\&{\char\number`\&\space}
\def\mathhexbox#1{\hbox{$\mathsurround0pt\mathchar"#1$}}
\def\#{\mathhexbox{271}}
\def\@{\mathhexbox{27C}}
\def\${\mathhexbox{27F}}
\def\_{\kern.06em\vbox{\hrule width.3em}} % underline in identifiers
\def\sterling{\mathhexbox{27E}}
\def\copyright{\mathhexbox{27D}}
\def\P{\mathhexbox{27B}}
\def\ddag{\mathhexbox{27A}}
\def\dag{\mathhexbox{279}}
\def\section{\mathhexbox{278}}
% \def\lft#1{{#1}\hfill} the old \lft, \ctr, \rt aren't recommended for TeX82
% \def\ctr#1{\hfill{#1}\hfill}
% \def\rt#1{\hfill{#1}}
\def\line{\hbox to\the\hsize}
\def\ljustline#1{\line{#1\hss}}
\def\rjustline#1{\line{\hss#1}}
\def\ctrline#1{\line{\hss#1\hss}}
\def\log{\mathop{\rm log}\limitswitch}
\def\lg{\mathop{\rm lg}\limitswitch}
\def\ln{\mathop{\rm ln}\limitswitch}
\def\lim{\mathop{\rm lim}}
\def\limsup{\mathop{\rm lim\,sup}}
\def\liminf{\mathop{\rm lim\,inf}}
\def\sin{\mathop{\rm sin}\limitswitch}
\def\cos{\mathop{\rm cos}\limitswitch}
\def\tan{\mathop{\rm tan}\limitswitch}
\def\cot{\mathop{\rm cot}\limitswitch}
\def\sec{\mathop{\rm sec}\limitswitch}
\def\csc{\mathop{\rm csc}\limitswitch}
\def\max{\mathop{\rm max}}
\def\min{\mathop{\rm min}}
\def\sup{\mathop{\rm sup}}
\def\inf{\mathop{\rm inf}}
\def\det{\mathop{\rm det}}
\def\exp{\mathop{\rm exp}\limitswitch}
\def\Pr{\mathop{\rm Pr}}
\def\gcd{\mathop{\rm gcd}}
\def\choose{\atopwithdelims ()}
\def\leftset{\mathopen{\{\,}}
\def\rightset{\mathclose{\,\}}}
\def\modop{\<\,\mathbin{\rm mod}\penalty900\<\,}
\def\mod#1{\penalty0\;({\rm mod}\,\,#1)}
\def\eqv{\mathchar"3211 }
\def\neqv{\not\eqv}
\mathchardef\ldotp="602E % ldot as a punctuation mark
\mathchardef\cdotp="6201 % cdot as a punctuation mark
\def\ldots{{\ldotp\ldotp\ldotp}}
\def\cdots{{\cdotp\cdotp\cdotp}}
\def\ldotss{\ldots\mathord{}}
\def\cdotss{\cdots\mathord{}}
\def\ldotsm{\errmessage{With TeX82, just say \string\ldots}\ldots}
\def\vdots{\vbox{\baselineskip 4pt\vskip 6pt\hbox{.}\hbox{.}\hbox{.}}}
\def\alt#1{\left\{\,\vcenter{\halign{$##\hfil$&\quad##\hfil\cr#1}}\right.}
\def\eqalign#1{\baselineskip15pt\lineskip3pt\lineskiplimit3pt
\def\eqalignno#1{\baselineskip15pt\lineskip3pt\lineskiplimit3pt
\def\cpile#1{\vcenter{\halign{\hfill$## $\hfill\cr#1}}}
\def\lpile#1{\vcenter{\halign{$## $\hfill\cr#1}}}
\def\rpile#1{\vcenter{\halign{\hfill$## $\cr#1}}}
\def\null{\hbox{}}
\def\twoline#1#2#3{\vbox{
\def\chop to#1pt#2{{\setbox0\hbox{$\displaystyle{#2}$}\hbox{\lower#1pt\null
\def\newname#1{\errmessage{In TeX82, please call this operation \string#1} #1}
\def\spose#1{\newname\rlap{#1}}
\def\rlap#1{\hbox to 0pt{#1\hss}}
\def\llap#1{\hbox to 0pt{\hss#1}}
\def\nointerlineskip{\prevdepth-1000pt }
\def\topspace{\hrule height0pt\vskip}
\def\hang{\hangindent\the\parindent}
\def\item#1{\par\noindent\hang
\def\itemitem#1{\par\noindent
\def\narrower{\setskip0=\the\leftskip \advskip0 by 20pt \leftskip=\skip0
\def\biglp{\mathopen{\vcenter{\hbox{\tenex\char'0}}}}
\def\bigrp{\mathclose{\vcenter{\hbox{\tenex\char'1}}}}
\def\bigglp{\mathopen{\vcenter{\hbox{\tenex\char'22}}}}
\def\biggrp{\mathclose{\vcenter{\hbox{\tenex\char'23}}}}
\def\biggglp{\mathopen{\vcenter{\hbox{\tenex\char'40}}}}
\def\bigggrp{\mathclose{\vcenter{\hbox{\tenex\char'41}}}}
\def\magnify#1{\mag=#1\hsize=6.5truein\vsize=8.9truein}
\def\raggedright{\rightskip 0pt plus 2em \spaceskip .3333em \xspaceskip .5em}
\def\ttraggedright{\rightskip 0pt plus 2em} % for use with \tt only
\def\rm{\fam0\tenrm}
\def\it{\fam4\tenit}
\def\sl{\fam5\tensl}
\def\bf{\fam6\tenbf}
\def\tt{\fam7\tentt}
\def\strut{{\vrule height8.5pt depth3.5pt width0pt}}
\def\showhyphens#1{\setbox0=\vbox{\parfillskip0pt\hsize10000pt\tenrm
\def\format{plain}\def\version{0} % identifies the current format